home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)sdg.d64
/
axeman
(
.txt
)
next >
Wrap
Commodore BASIC
|
2007-02-04
|
728b
|
28 lines
19600 REM***EXECUTIONER BOO HISS ROUTINE***
19605 POKE53280,2:POKE53281,3
19610 PRINT"[147]"
19620 PRINT" [164][164][164][164][164][164][164]
19630 [153]" (null) (null)
19640 PRINT" [206]YOU LOSE![165]
19650 [153]" (null)(null)(null)TOTOTOTOTOTOTO(null)
19660 PRINT" [206][163][163][205][163]
19670 [153]" (null) (null)
19680 PRINT" [206][213][205][206][201][165] [207][205] [206][208]
19690 [153]" FNMID$(null)MID$(null)FN FN SPC( THEN
19700 PRINT" [206] [206][163][163][163][165] [204][206][166][205][186]
19710 [153]" (null)TAB((null) FNMID$TAN(null)FN SPC(
19720 PRINT" [165] [167][163][205][164][164][206][208][205] [166]
19730 [153]" FNFNTHEN THEN (null) *SPC(RIGHT$
19740 PRINT" [205] [205] [164] [186] [207][208][220][201]
19750 [153]" (null) (null) (null)(null)TOTOTO(null)RIGHT$
19760 PRINT" [205] [208][201][164][221] [166]
19770 [153]" (null)(null)(null)(null) SPC(
19780 PRINT" [166]
19790 [153]" SPC(
19800 PRINT"[156]"
19810 FORUU=1TO39:PRINT"[178]";:NEXTUU:PRINT"[145]"
19820 FORDD=1TO23:PRINTTAB(0)"[171]"TAB(38)"[179]":NEXTDD
19830 FOROO=1TO39:PRINT"[177]";:NEXTOO
19840 FORYY=1TO1600:NEXTYY
19850 GETD$:IFD$=""THEN19850